home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / dist.src < prev    next >
Text File  |  1991-02-21  |  296b  |  10 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ DIST, Great Circle Distance
  3. @ by Eric Bergman-Terrell
  4. \<< 0 0 \-> LATA LONA LATB LONB A B
  5.   \<< -15 SF -16 SF 1 LONA HMS\-> 90 LATA HMS\-> - \->V3 'A' STO
  6.     1 LONB HMS\-> 90 LATB HMS\-> - \->V3 'B' STO
  7.     A B DOT ACOS 60 * 6080 * 5280 / -15 CF -16 CF
  8.   \>>
  9. \>>
  10.